home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / mus / misc / octaflip.lha / flipblock_highlights.omed < prev    next >
Encoding:
Text File  |  1998-10-07  |  573 b   |  28 lines
  1. /*    flipblock_highlights.omed - arexx-script for octamed.
  2.      Flips the highlights on the current block.
  3.     Made by Kjetil S. Matheussen 1998.
  4. */
  5.  
  6.  
  7. OPTIONS RESULTS
  8.  
  9. ed_getnumlines VAR rn_end
  10. rn_end=rn_end-1
  11. length = rn_end/2
  12.  
  13. op_update off
  14. DO e=0 to length
  15.     drop top_high bot_high
  16.     ed_getlinehighlight e VAR top_high
  17.     ed_getlinehighlight rn_end-e VAR bot_high
  18.     if ~(bot_high=top_high) then do
  19.         if bot_high=1 then do
  20.             ed_highlightline rn_end - e OFF
  21.             ed_highlightline e ON
  22.         end;else do
  23.             ed_highlightline rn_end - e ON
  24.             ed_highlightline e OFF
  25.         end
  26.     end
  27. END
  28. op_update on